unit clsCriptografia;

interface

type
  TCriptografia = class
  private
    function GetTexto():String;
    procedure SetTexto(texto:String);
    function GetTextoCriptografado():String;
    procedure SetTextoCriptografado(textoCriptografado:String);

  public
    constructor Create(); Overload;
    constructor Create(Texto:String); Overload;

    property Texto:String read GetTexto write SetTexto;
    property TextoCriptografado:String read GetTextoCriptografado write SetTextoCriptografado;

  end;

  TTokens = array of String;
  
implementation

constructor TCriptografia.Create();
begin
 
end;

constructor TCriptografia.Create(Texto: String);
begin
  SetTexto(Texto);
end;

function TCriptografia.GetTexto: String;
begin
  Result := Self.Texto;
end;

procedure TCriptografia.SetTexto(Texto: String);
begin
  Self.Texto := Texto;
end;

function TCriptografia.GetTextoCriptografado: String;
begin
  Result := Self.TextoCriptografado;
end;

procedure TCriptografia.SetTextoCriptografado(TextoCriptografado: String);
begin
  Self.TextoCriptografado := TextoCriptografado;
end;

end.
